以前介绍了已知干球温度和相对湿度求湿球温度的编写方法及相关代码。最近在网上看到，有人需要已知干球温度和湿球温度的情况下计算相对湿度，所以专门研究了一下，发现只要会计算湿球温度就一定会求相对湿度。希望下面的编程代码对你们有所帮助，在这里计算相对湿度，还需要另外的一个函数
求湿球温度2(tk, ph)，如果你想详细了解计算方法，请来信来电联系站长。最后真诚地希望广大网友对该软件提出合理的建议，在此站长将对你的建议和意见表示衷心的感谢。
如你有其他需求或对软件有什么建议的话，可以随时来信来电联系渝石网络站长，本站站长将会及时地给予回答。同时你也可以在网站下载其相关资料，网站地址为：http://www.fishsting.com/。
Public Function 求相对湿度(空气温度t, 湿球温度t)
Dim tk, tw, tw1 As Single
tk = 空气温度t
tw = 湿球温度t
ph = 50 '设置初始相对湿度值
tw1 = 求湿球温度2(tk, ph)
i = 0 '计数器设置为0
'循环来求解相对湿度
Do While Abs((tw - tw1)) > 0.01 And i < 100
ph = ph * (1 + (tw - tw1) / tw1)
tw1 = 求湿球温度2(tk, ph)
i = i + 1
Loop
求相对湿度 = ph
End Function
黄建春
2026/7/3
333
